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FIGURE 4 
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MHD=1+!NVFII6* 

TYP=0700+!NVOICES' 

SDT=600000000101 1+GXS+The Widgets, Inc.417 Bay Blvd San Francisco, CA .89113+569 9469* 

CDT=6000000001011+CUSTOMER, inc.+John Doe 7110 West Mam SLCarthage, TN..37030* 

FiL=4+1 + 000807' 

FDT=000807*000807* 

MTR=? 

MHD=2+!NVOlC ' 

CLO=00078+The Widgets, Inc.+CARTHAGE' 

)RF=13+000504+000504'ODD=1+13:13000504 000504* 000504' 

IU>1-1+ 8410764062401+++1+5+9.99+22900G+S+l75Q0+++Worker Jeans-Twill+++9 99 1 

ILD=1+2+ 3449861077047+++1+4+24.99+232000+S+17500+++Worker Cords +++24.99' 

ILD=1+3+ 3449861 137062+-+1+2+99 99+177600+S+17500+++Leather Jean Jacket +++99.99* 

IU>1+4+ 3449861102930~+1+4+14.99+248000+S+17500+*+Clean Cut Khakis ^+14.99* 

ILD*1+5+ 8411814800028+++1+7+6.99+432600+S+17500+++Cargo Shorts +++6.99' 
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ILD=1+10+:5411328042G36++-1+11+19 99+31 240G+S+175Q0+++Kmt Button-Down Shirt+++19 99* 
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FIGURE 5 A 



ILD*t+1+ 8410764062401++v|+5+9 99-229000+S+17500+++Worker Jeans-Twill+++9 99* 
IU>1+2^449fl61077047^1+4*24.99*232000+S+17500^Wofker Cords +++24.99* 
110=1+3+ 3449861 1 37062+++1 +2+99.99+1 776G0+S+17500+++leather Jean Jacket +++99.90 
!li>1+4+ 3449861102930+++1+4+14.99+248000+S+l7500+++Clean Cut Khakis +++14.99* 
!U>1+5+ 8411814800028+++1+7+6 99+432600+S+17500+++Cargo Shorts +++6 99' 
IU>1+6+841 181480001 1+++1+6+6.99+314400+S+17500+++Pfeaied Walking Shorts +++6 99* 
IU>1+7+ 5411328042005+++1+10+6.99+385GG0+S+17500+++F!at Front Shorts +++6.99 1 
llD=1+8+. 5411328042019+++1+8+24 99+801600+S+17500+++Stretch Shirt+++24 99* 
IU>1+9+ 5411328042029+++1+1(K16.99+550000+S+17500+++Pattemed Stretch Shirt+++16 99 1 
IU>1+iO+'5411328042036+++1+1 1+19.99+312400+S+17500+++Knit Button-Down Shirt+++19 99' 
!U>1+11+ 5000144788777+++1+1+16 99+55400+S+l7500++*Pique Polo Shirt +++16 99' 
!LD«1+12+ 5410916085278+-+1+2+9 99+82200+S+17500+++Short-Sleeved Polo Sweater+++9.9? 



FIGURE 5B 

SDT*600000000101 1+XYZ+The Widgets, Inc :417 Bay Blvd :San Francisco, CA :89113+569 9469" 
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FIGURE o 



Dim invoice As Object 
Sub LoadlnvoiceO 



Set invoice «s CreateObjectCInvou^.Bean") 
invoice .Open ( *C : \\Excel\\invoic9 J3 . mf d ") 



Sheetl. Celis.Range("D2\ 
Sheetl .CeIls.Range("D2") 
Sheet!. CelIs.Range("D3") 
Sheet^.CelIs.Range( , 'D4' , ) 
Sheetl .Ceils.Range( ,, D5 ") 



"FS^.CIearContents 
= invoice. Supplier Address 1 
= invoice.Supp!ierAddress2 
= invoice. Supplier A ddress3 
= invoice.SupplierAddress4 



Sheetl. CelIs.Range("C9", "Gl2* , ).CIearContents 
Sheetl. CeIls.Range("C9") - invoice. CustomerAddressl 
Sheet l.Ceils.RangeCC 10") invoice.CustomerAddress2 
Sheetl. Cells. Range("C 11 ") - invoice. CustomerAddress3 
Sheetl. Cells.Range("C 12") = invoice. Customer Address4 



Sheetl .Cells.RangefJ 2").ClearContents 

Sheetl. Cells. Range(*J2 w ) = invoice.InvoiceNumber 

Sheetl. Cells.Range( ,, J9 n ).ClearContents 

Sheetl. Cells.Range( n J 9") = " = Date(" + Left (invoice. In voiceDate, 2) + V + Mid(invoice.InvoiceDate, 3, 2) + 
5 ; , Right(invotce.InvoiceDate, 2) + ")" 

M Dim i As Integer 

p Dim j As Integer 

5.5 Dim celladdr As String 

=Af j = 0 

01 i- 15 

Sheetl. CeUs.Range("B15\ "13r).ClearContents 
invoice. SetCurrentLineltem (j) 
a Do While invoice. hasMoreltemsO 31 True 

^ celladdr == M B" + LTrim(Str(i)) 

rf Sheetl. Cells. Range(celladdr) = invoice .Quantity 

H* celladdr « "C" + LTrim(Str(i)) 

Q Sheetl. Cells. Range(celladdr) = invoice. Description 

ffi celladdr = T + LTrim(Str(i)) 

Sheetl. Cells. Range(celladdr) = invoice.Price 
j - j + 1 

in voice. SetCurrentLineltem (j) 
i = i + 1 
Loop 



End Sub 



Sub SavelnvoiceQ 



invoice. SupplierAddressl = Sheetl. Cells.RangeCTO") 
invoice SupplierAddress2 = Sheetl. Cells. Range("D 3") 
invoice. SuppUerAddress3 = Sheetl. Cells. Range("D4") 
invoice. SupplierAddress4 = Sheetl. Cells. Range("D5 ") 

invoice. CustomerAddressl = Sheetl. Cells. Range("C9") 
invoice.CustomerAddress2 =* Sheetl. Ceils. Range("C 10") 
invoice. CustomerAddress3 =* Sheetl. Ceils.RangeCC 1 V) 
invoice. Customer A ddress4 - Sheetl. Cells.RangeCCn") 

invoice .Save ("C :\\Excei\\invoic9_3 . mfd tt ) 



End Sub 
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The Widgets, Inc. 
417 Bay Blvd. 
San Francisco* CA. 
89113 



Invoice No. 



13 









.Saw* 







Customer 

John Doe 

7110 West Main St 
Carthage, TN. 
37030 




r/.vww.v/,v,.v/.v/r.v/.v,v,v,v. /wv//////a\«vav:vvjKv///v.-.v.v. v. ■ -.v.-.'.v. .- '.•.■.•.■.•.:':-.:::::::v.::' 

5 i Worker Jeans-Twill 




4 Worker Cords 


$24.99 


2 Leather Jean Jacket 


$99.99- ' 


4 i Clean Cut Khakis 




7 I Cargo Shorts 


| $6^99^ 


6 : Pleated Walking Shorts 


$6.99p|| 


10 : ;Rat Front Shorts 


: $6.99« 


8 j Stretch Shirt 


j $24.99||| 


10 : Patterned Stretch Shirt 


$16.99- 


11 ;Knit ButtorvDovvn Shirt 


f 519.99M 


1 : Pique Polo Shirt 


$16.99-. • 


2 j Short-Sleeved Poi o Sweater 





n 
o 

Name 
CC# 



Payment 



Cash 
Check 
Credt Card 



Expires 



Shipping & Handling 
Sales Tax 

TOTAL 



: Otce 



.-.>.: 




77ie merchandise is received "as /s" by toe customer and no warrantee is given or 
implied as to it's quality once accepted. 



Thank You for Shopping at Widgets, Inc. 



FIGURE 7 
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